1) UDPFIL.OLD vs. 2) UDPFIL.FAI	SRCCOM	05-22-74	11:26	PAGES 1,1

******** UDPFIL.OLD **** PAGE 1
1)	00200	;THIS AN OLD VERSION FROM THE TIME WHEN DAEMON (OLD DAEMON, IN FACT)
1)	00300	; WAS USED FOR DUMPING TO MAGTAPE. THE NEW VERSION READS DART TAPES.
1)	00400	;THIS PROGRAM READS A FILE (SOSFIL) AND COPIES THE MENTIONED SOUND
*** UDPFIL.FAI *** PAGE 1
2)	00200	;THIS A NEW VERSION OF THE PROGRAM TO ACCOMODATE DART.
2)	00300	;THE OLD VERSION (FOR OLD DAEMON) IS CALLED UDPFIL.OLD[KID,RCP]
2)	00400	;THIS PROGRAM READS A FILE (SOSFIL) AND COPIES THE MENTIONED SOUND


******** UDPFIL.OLD **** PAGE 1
1)	16400		;A NOTE ON DAEMON FORMAT:-
1)	16500		;EACH FILE IS A SERIES OF =1024 WORD RECORDS
1)	16600		;THE FIRST =10 WORDS OF EVERY RECORD CONTAIN SUMCHECK INFO.
1)	16700		;THE NEXT 7 WORDS CONTAIN FILE NAME, EXT, PPN, ETC.
1)	16800		;IN PARTICULAR WORD =10 IS FILE NAME IN SIXBIT.
1)	17000		;READ NEXT FILE HEAD AND LEAVE NAME IN A
1)	17100		SETZM	BUFFER		;WILL BE OVERWRITTEN BY HEADER.
1)	17200		GETSTS	MTACHN,A	;FOR RAIDING
1)	17300		INPUT	MTACHN,[IOWD 2000,BUFFER
1)	17400				0]
1)	17500		GETSTS	MTACHN,A	;FOR RAIDING
1)	17600		MOVE	A,BUFFER+=10	;FILE NAME PLACE OF BLOCK
1)	17800		;TEST FOR FILE TO BE COPIED.
1)	17900		CAME	A,FILNAM	;SKIP IF FILE FOUND
*** UDPFIL.FAI *** PAGE 1
2)	16400		;A NOTE ON DART TAPE FORMAT:-
2)	16500		;EACH FILE IS A SERIES OF (UP TO) 1280 WORD RECORDS (2400 OCTAL)
2)	16600		;THE FIRST (LAST) RECORD OF EACH TAPE IS A HEADER (TRAILER):
2)	16700		;  TOP HALF OF WORD 0 OF HEADERS (TRAILERS) IS POSITIVE.
2)	16800		;THE FIRST RECORD OF EACH FILE IS A FILE-START RECORD.
2)	16900		;  THE TOP HALF OF WORD 0 OF FILE-START RECORDS IS -1.
2)	17000		;  WORD 2 OF FILE-STARTERS IS THE FILE NAME.
2)	17100		;  WORD 3 (TOP) OF FILE-STARTERS IS THE EXTENSION.
2)	17200		;CONTINUATION RECORDS FOR A FILE CONTAIN 0 IN TOP OF WD 0.
2)	17400		;SEEK NEXT FILE-START RECORD.
2)	17500		SETZM	BUFFER		;WILL BE OVERWRITTEN BY HEADER.
2)	17600		GETSTS	MTACHN,A	;FOR RAIDING
2)	17700		INPUT	MTACHN,[IOWD =1280,BUFFER
2)	17800				0]
2)	17900		GETSTS	MTACHN,A	;FOR RAIDING
2)	18000		MOVE	A,BUFFER+2	;TEST FOR TAPE TRAILER
2)	18100		CAMN	A,[SIXBIT /*TAIL*/]
2)	18200		JRST	[OUTSTR [ASCIZ /TRAILER RECORD FOUND/]
2)	18300			CALL [SIXBIT /EXIT/]]
2)	18400		MOVE	A,BUFFER	;TEST FOR FILE-STARTER
2)	18500		JUMPGE	A,MTREAD
2)	18600		MOVE	A,BUFFER+2	;FILE NAME OF FILE-STARTER
2)	18700		CAME	A,FILNAM	;SKIP IF FILE FOUND